home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / comms / rbcom346.zip / CIS.MAC < prev    next >
Text File  |  1995-01-22  |  1KB  |  82 lines
  1. ; RBcomm macro file for CompuServe
  2. ;    by Ralf Brown
  3. ;
  4.  
  5. AutoDL  MULTI
  6.     WHEN 0 "Please initiate YMODEM receive"
  7.         {
  8.         PAUSE 5
  9.         RECEIVE 'Y'
  10.         PAUSE 4
  11.         TEXT "\r"
  12.         }
  13. ;     WHEN 0 "Please initiate XMODEM receive"
  14. ;         {
  15. ;         PAUSE 5
  16. ;         RECEIVE 'X'
  17. ;         PAUSE 4
  18. ;         TEXT "\r"
  19. ;         }
  20.     WHEN 0 "^E"
  21.         DVEXEC 0 "C:/DV/OZ-PIF.DVP"
  22.       END
  23.  
  24. ;---------------------------------------------------------------------
  25. ; download using CIS B+ protocol by invoking a copy of OZSMALL in another
  26. ; DESQview window
  27.  
  28. @R    {
  29.     TEXT "down/proto:qb"
  30.     WAITFOR 2 "qb"
  31.     TEXT "\r"
  32.     WAITFOR 10 "Bytes"
  33.     CUT 10 AFTER "File "
  34.     RTRIM CUTBUFFER ", 0123456789"
  35.         WAITFOR 5 "File name for your computer:"
  36.     PAUSE 2
  37.     PASTE
  38.     PAUSE 6
  39.     TEXT "\r"
  40.     DVEXEC 0 "C:/DV/OZ-PIF.DVP"
  41.     PAUSE 6
  42.     TEXT "\r"
  43.     }
  44.  
  45. OnLoad    {
  46.     LOG "%VDSZLOG%" "-- connected to %N at %t on %d\r\n"
  47.     AVATAR OFF
  48.     RBCOMM_CMDS OFF
  49.     }
  50.  
  51. #defkey Login 199
  52. Login    {
  53.     WAITFOR 5 "User ID:"
  54.     TEXT "nnnnn,nnn\r"
  55.     WAITFOR 5 "Password:"
  56.     PASSWORD
  57.     TEXT "\r"
  58.     }
  59.  
  60. Auto    {
  61.     STRIP_PARITY ON            ; needed if connecting at 8N1
  62.     PAUSE 3
  63.     TEXT "\r"
  64.     WAITFOR 3 "Host Name:"
  65.     TEXT "CIS\r"
  66.     STRIP_PARITY OFF
  67.     CALL Login
  68.     }
  69.  
  70. CleanUp {
  71.     IF CONNECTED
  72.        {
  73.        TEXT "bye\r"
  74.        WAITFOR 3 "Host Name:"
  75.        TEXT "bye\r"
  76.        }
  77.     LOG "%VDSZLOG%" "-- hung up %N at %t on %d\r\n"
  78.     SELECT_SCREEN 0
  79.     }
  80.  
  81. #include "rbcomm.mac"
  82.